Private Sub Form1_Load(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles MyBase.Load
  Dim myrdr As SqlClient.SqlDataReader
  Dim node_key As String
  Dim entry_letter As String
  Dim node_name As String

  Set_NewTree()

  SqlCommand1.Connection.Open()
  myrdr = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
  Do While myrdr.Read
  node_key = myrdr.GetString(1)
  entry_letter = entry_letter = node_key.Substring(0, 1)
  Dim myNode As TreeNode
  I = 0
  node_name = myrdr.GetString(1) & ", " & myrdr.GetString(2)
  For Each myNode In tvTreeView.Nodes.Item(0).Nodes
    If myNode.Text = entry_letter Then
      tvTreeView.Nodes.Item(0).Nodes.Item(myNode.Index).Nodes.Add(node_name)
      Exit For
  End If
  Next
  Loop
  myrdr.Close()
  SqlConnection1.Close()
End Sub
